home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDB100 / B / MAP.GO (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  272 b   |  10 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0 FI$ = "Map.demo"
  2. 1 T$ = "": ON   NOT  PEEK(640) GOTO 3: FOR T = 641 TO 641 + PEEK(640) -1:T$ = T$ + CHR$( PEEK(T)): NEXT 
  3. 2  IF  RIGHT$(T$,1) < >"/"  THEN T$ =  MID$ (T$,1, LEN(T$) -1): IF T$ < >""  THEN 2
  4. 3  ONERR  GOTO 8
  5. 4  ON T$ < >"" GOTO 5: PRINT  CHR$(4)"prefix": INPUT T$
  6. 5  PRINT  CHR$(4)"prefix"T$
  7. 6  PRINT  CHR$(4)"-"FI$
  8. 7  TEXT : HOME : VTAB 11
  9. 8  PRINT "UNABLE TO SET PREFIX AND"
  10. 9  PRINT "UNABLE TO RUN "FI$: STOP